home *** CD-ROM | disk | FTP | other *** search
/ Directorty Opus 5 - Magellan 2 / Opus 5 - Magellan 2.iso / Extras / DOpus511 / dopus_pch.lha / ARexx.lha / Arexx / OCD.dopus5 < prev    next >
Text File  |  1995-05-14  |  689b  |  20 lines
  1. /* OCD v1.00 [14-May-1995] for Directory Opus 5
  2.    By Leo Davidson ("Nudel", P0T-NOoDLE/Gods'Gift Utilities)
  3.  
  4.    Note: Please don't confuse this with the CDO script!
  5.  
  6.    When run from a Shell, will put the DOpus5 screen to the front and
  7.    open a new lister with the same path as the Shell.
  8.  
  9.    To set up the command "OCD", add the following to your s:shell-startup:
  10. -------------------------------------------------------------------------------
  11. Alias OCD "rx DOpus5:ARexx/ocd.dopus5"
  12. -------------------------------------------------------------------------------
  13. */
  14. signal on error
  15. address "DOPUS.1"            /* Assumes there's only one copy. */
  16. dopus front
  17. lister new pragma("d")
  18. Error:
  19. EXIT
  20.